home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / POLRECT.BAS < prev    next >
BASIC Source File  |  1985-06-02  |  933b  |  33 lines
  1. 10   CLS
  2. 15   KEY OFF
  3. 20   REM
  4. 30   PRINT : PRINT : PRINT
  5. 40   PRINT TAB(28) " AN ASTRONOMY PROGRAM"
  6. 45   PRINT : PRINT
  7. 50   PRINT TAB(15) "-------- POLAR TO RECTANGULAR COORDINATES --------"
  8. 55   PRINT : PRINT :
  9. 60   PRINT TAB(30) " BY CHRIS SPRATT"
  10. 65   PRINT
  11. 70   PRINT TAB(34) "OCT. 1984"
  12. 75   PRINT
  13. 80   PRINT : PRINT :
  14. 90   LOCATE 24,25
  15. 91   PRINT "PRESS ANY KEY TO CONTINUE"
  16. 92   B$ = INPUT$ (1)
  17. 95   CLS : PRINT : PRINT : PRINT : PRINT
  18. 100  REM
  19. 110  DEGRADE = 3.14159265#/180 : PIT = 180/3.14159265#
  20. 120  PRINT TAB(35) : INPUT "R";R
  21. 130  PRINT :PRINT
  22. 140  PRINT TAB(25): INPUT " ANGLE (DEGREES)";ANGLE
  23. 141  X = R* COS(ANGLE * DEGRADE)
  24. 142  Y = R* SIN(ANGLE * DEGRADE)
  25. 150  PRINT :PRINT :
  26. 160  PRINT TAB(35) "X = ";X
  27. 170  PRINT :PRINT
  28. 180  PRINT TAB(35) "Y = ";Y
  29. 200  PRINT :PRINT :PRINT
  30. 210  PRINT TAB(25) : INPUT "DO YOU WANT ANOTHER  Y/N";A$
  31. 220  IF A$ = "Y" THEN GOTO 95 ELSE 230
  32. 230  END
  33.